home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / 00005_Script_mouseUp for buttons < prev    next >
Text File  |  1997-03-05  |  785b  |  28 lines
  1. on mouseUp
  2.   set howList="long,short,shot,hot"
  3.   
  4.   set bPressed=the clickon
  5.   set listName=the name of member (the memberNum of sprite bPressed)
  6.   set y=the number of chars of listName
  7.   if char y of listName="d" then
  8.     set listName=char 1 to y-2 of listName
  9.     set the memberNum of sprite bPressed=the number of member listName
  10.     if howList contains listName then
  11.       dissension "howCurr",listname
  12.     else
  13.       dissension "whenCurr",listname
  14.     end if
  15.     
  16.   else
  17.     set z=listName&"/d"
  18.     set the memberNum of sprite bPressed=the number of member z
  19.     set howList="long,short,shot,hot"
  20.     if howList contains listName then
  21.       unity "howCurr",listname
  22.     else
  23.       unity "whenCurr",listname
  24.     end if
  25.   end if
  26.   divide
  27.   showCurrent
  28. end